object uEcran: TuEcran
  Left = 225
  Top = 275
  Width = 1028
  Height = 538
  Caption = 'Kiloutou'
  Color = clGrayText
  DefaultMonitor = dmMainForm
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mmKiloutou
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 655
    Top = 0
    Width = 3
    Height = 482
    Cursor = crHSplit
    Align = alNone
  end
  object GroupBox1: TGroupBox
    Left = 715
    Top = 0
    Width = 297
    Height = 482
    Align = alRight
    Caption = 'Machines'
    Color = clScrollBar
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    object Label8: TLabel
      Left = 8
      Top = 24
      Width = 104
      Height = 13
      Caption = 'Type de machines'
    end
    object Image1: TImage
      Left = 24
      Top = 208
      Width = 257
      Height = 193
      Picture.Data = {
        [encoded data, 282880 characters]
        0000}
    end
    object gbFicheCaracteristique: TGroupBox
      Left = 8
      Top = 160
      Width = 281
      Height = 305
      Caption = 'Fiche Caractéristique'
      TabOrder = 1
      object Label3: TLabel
        Left = 8
        Top = 16
        Width = 26
        Height = 13
        Caption = 'Nom'
      end
      object Label1: TLabel
        Left = 6
        Top = 68
        Width = 73
        Height = 13
        Caption = 'Description :'
      end
      object lPrix: TLabel
        Left = 8
        Top = 169
        Width = 73
        Height = 13
        Caption = 'Prix Mensuel'
      end
      object lPoidsTotal: TLabel
        Left = 8
        Top = 228
        Width = 65
        Height = 13
        Caption = 'Poids Total'
      end
      object lVitesse: TLabel
        Left = 144
        Top = 168
        Width = 84
        Height = 13
        Caption = 'Vitesse  (m²/h)'
      end
      object lPoidsTransportable: TLabel
        Left = 144
        Top = 232
        Width = 114
        Height = 13
        Caption = 'Poids Transportable'
      end
      object eNomMachine: TEdit
        Left = 8
        Top = 36
        Width = 121
        Height = 21
        Color = clMenu
        Enabled = False
        TabOrder = 0
        Text = 'eNomMachine'
      end
      object mDescription: TMemo
        Left = 8
        Top = 88
        Width = 257
        Height = 65
        Color = clMenu
        Enabled = False
        Lines.Strings = (
          'Memo1')
        TabOrder = 1
      end
      object ePrix: TEdit
        Left = 8
        Top = 188
        Width = 121
        Height = 21
        Color = clMenu
        Enabled = False
        TabOrder = 2
        Text = 'ePrix'
      end
      object ePoidsTotal: TEdit
        Left = 8
        Top = 252
        Width = 121
        Height = 21
        Color = clMenu
        Enabled = False
        ReadOnly = True
        TabOrder = 3
        Text = 'ePoidsTotal'
      end
      object eVitesse: TEdit
        Left = 144
        Top = 188
        Width = 121
        Height = 21
        Color = clMenu
        Enabled = False
        TabOrder = 4
        Text = 'eVitesse'
      end
      object ePoidsTransportable: TEdit
        Left = 144
        Top = 252
        Width = 121
        Height = 21
        Color = clMenu
        Enabled = False
        TabOrder = 5
        Text = 'ePoidsTransportable'
      end
      object bFermerCarac: TButton
        Left = 168
        Top = 32
        Width = 81
        Height = 25
        Caption = 'Fermer'
        TabOrder = 6
        OnClick = bFermerCaracClick
      end
    end
    object bAjouter: TButton
      Left = 152
      Top = 40
      Width = 97
      Height = 25
      Caption = 'Ajouter'
      TabOrder = 2
      OnClick = bAjouterClick
    end
    object bModifier: TButton
      Left = 152
      Top = 80
      Width = 97
      Height = 25
      Caption = 'Modifier'
      TabOrder = 3
      OnClick = bModifierClick
    end
    object bSupprimerMateriel: TButton
      Left = 152
      Top = 120
      Width = 97
      Height = 25
      Caption = 'Supprimer'
      TabOrder = 4
      OnClick = bSupprimerMaterielClick
    end
    object lbMateriels: TDBGrid
      Left = 8
      Top = 40
      Width = 129
      Height = 105
      Color = clInactiveCaption
      DataSource = dmKiloutou.dsMateriel
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = [fsBold]
      Columns = <
        item
          Expanded = False
          FieldName = 'NOM'
          Title.Caption = 'Matériel'
          Width = 125
          Visible = True
        end>
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 715
    Height = 482
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 1
    object GroupBox2: TGroupBox
      Left = 1
      Top = 1
      Width = 713
      Height = 152
      Align = alTop
      Caption = 'Clients'
      Color = clScrollBar
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      object Label7: TLabel
        Left = 8
        Top = 56
        Width = 43
        Height = 13
        Caption = 'Prénom'
      end
      object Label6: TLabel
        Left = 8
        Top = 16
        Width = 26
        Height = 13
        Caption = 'Nom'
      end
      object Label2: TLabel
        Left = 168
        Top = 16
        Width = 39
        Height = 13
        Caption = 'Clients'
      end
      object Label11: TLabel
        Left = 8
        Top = 96
        Width = 23
        Height = 13
        Caption = 'Age'
      end
      object bAjouterClient: TButton
        Left = 552
        Top = 32
        Width = 105
        Height = 25
        Caption = 'Ajouter'
        TabOrder = 3
        OnClick = bAjouterClientClick
      end
      object ePrenom: TEdit
        Left = 8
        Top = 72
        Width = 121
        Height = 21
        Color = clMenu
        TabOrder = 1
        Text = 'ePrenom'
      end
      object eNomClient: TEdit
        Left = 8
        Top = 32
        Width = 121
        Height = 21
        Color = clMenu
        TabOrder = 0
        Text = 'eNomClient'
      end
      object eAge: TEdit
        Left = 8
        Top = 112
        Width = 57
        Height = 21
        Color = clMenu
        TabOrder = 2
        Text = 'eAge'
      end
      object lbClients: TDBGrid
        Left = 144
        Top = 32
        Width = 377
        Height = 105
        Color = clInactiveCaption
        DataSource = dmKiloutou.dsClient
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        TabOrder = 4
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = [fsBold]
        OnDblClick = lbClientsDblClick
        Columns = <
          item
            Expanded = False
            FieldName = 'NOM'
            Title.Caption = 'Nom'
            Width = 160
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PRENOM'
            Title.Caption = 'Prénom'
            Width = 160
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'AGE'
            Title.Caption = 'âge'
            Width = 50
            Visible = True
          end>
      end
      object bModifierClient: TButton
        Left = 552
        Top = 72
        Width = 105
        Height = 25
        Caption = 'Modifier'
        ModalResult = 1
        TabOrder = 5
        OnClick = bModifierClientClick
      end
      object bSupprimerClient: TButton
        Left = 552
        Top = 112
        Width = 105
        Height = 25
        Caption = 'Supprimer'
        TabOrder = 6
        OnClick = bSupprimerClientClick
      end
    end
    object Panel1: TGroupBox
      Left = 1
      Top = 153
      Width = 713
      Height = 328
      Align = alClient
      Caption = 'Locations'
      Color = clScrollBar
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      TabOrder = 1
      object bAjouterLocation: TButton
        Left = 32
        Top = 288
        Width = 75
        Height = 25
        Caption = 'Loue'
        TabOrder = 0
        OnClick = bAjouterLocationClick
      end
      object bRetourLocation: TButton
        Left = 584
        Top = 288
        Width = 75
        Height = 25
        Caption = 'Rend'
        TabOrder = 1
        OnClick = bRetourLocationClick
      end
      object lbLocation: TDBGrid
        Left = 8
        Top = 15
        Width = 689
        Height = 266
        Color = clInactiveCaption
        DataSource = dmKiloutou.dsLocation
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        ParentFont = False
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = [fsBold]
        Columns = <
          item
            Expanded = False
            FieldName = 'NOM'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            Title.Caption = 'Nom'
            Width = 120
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PRENOM'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            Title.Caption = 'Prénom'
            Width = 120
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NOM1'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            Title.Caption = 'Matériel'
            Width = 120
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DEBUT_LOCATION'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            Title.Caption = 'Début de la location'
            Width = 160
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'RETOUR_LOCATION'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clGreen
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            Title.Caption = 'Fin de la location'
            Width = 160
            Visible = True
          end>
      end
      object bStatistique: TButton
        Left = 304
        Top = 288
        Width = 75
        Height = 25
        Caption = 'Statistiques'
        TabOrder = 3
        OnClick = bStatistiqueClick
      end
    end
  end
  object mmKiloutou: TMainMenu
    BiDiMode = bdLeftToRight
    OwnerDraw = True
    ParentBiDiMode = False
    Left = 80
    Top = 8
    object Quiter1: TMenuItem
      Bitmap.Data = {
        [encoded data, 208000 characters]
        F3F3F2F2F2F4F4F4F3F3F3F5F5F5F6F6F6F7F7F7F7F7F7000000}
      Caption = 'Fichier'
      object Quitter1: TMenuItem
        Caption = 'Quitter'
        OnClick = Quitter1Click
      end
    end
    object Database1: TMenuItem
      Caption = 'EffacerTables'
      object TableLocation1: TMenuItem
        Caption = 'Table Location'
        OnClick = TableLocation1Click
      end
      object TableMatriel1: TMenuItem
        Caption = 'Table Matériel'
        OnClick = TableMatriel1Click
      end
      object TableClient1: TMenuItem
        Caption = 'Table Client'
        OnClick = TableClient1Click
      end
    end
    object Caractristiques1: TMenuItem
      Caption = 'Caractéristiques du matériel'
      OnClick = Caractristiques1Click
    end
    object N1: TMenuItem
      Caption = '?'
      object Siteinternet1: TMenuItem
        Caption = 'Kiloutou.fr'
        OnClick = Siteinternet1Click
      end
      object Apropos1: TMenuItem
        Caption = 'A propos'
        OnClick = Apropos1Click
      end
    end
  end
end
